﻿Public Class frmPosVentas

    Private Sub frmPostVentas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'frmIndex.Hide()
        For i = 0 To 100
            cboLoteNum.Items.Add(i)
        Next i
        puntajeTotalPVTA = 0
        CargarEmpresas(cbo_empresa)
        CargarAuditor(cbo_controla)
        CargarTllamada(cbo_tllamada)
        CargarOptSaluPVta(cbo_salu)
        CargarOptEmpaPVta(cbo_empatia)
        CargarOptEscPVta(cbo_escucha)
        CargarOptIndPVta(cbo_indagacion)
        CargarOptDisPVta(cbo_disposicion)
        CargarOptPresPVta(cbo_precision)
        CargarOptComPVta(cbo_comunicacion)
        CargarOptCierPVta(cbo_cierre)
        dtp_hoy.Value = Today
        lbl_puntaje.Text = puntajeTotalPVTA
        TodoACero()
    End Sub
    Private Sub bt_guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_guardar.Click
        Dim controles As String
        controles = ""
        controles = ControlCamposIncompletos(Gb_01) + controles
        controles = ControlCamposIncompletos(Gb_03) + controles

        If controles <> "" Then
            MsgBox("Le falto completar datos en: " & Chr(13) & controles, MsgBoxStyle.Critical, "ERROR!")
        Else
            IDentificadorUnico(lblIdunicoLlam)
            titulo(Gb_01)
            titulo(Gb_02)
            If chkAlerta.Checked = True Then
                Dim correoDestino As String
                correoDestino = getEmailDestino(cbo_empresa.Text)
                enviarAlerta(correoDestino, cbo_controla.Text, cbo_auditado.Text, txtCaso.Text, cboLoteLetra.Text + cboLoteNum.Text, dtp_fllam.Text, lbl_puntaje.Text, rtxt_encontra.Text)
            End If
            Dim guardar As New C_agregarDatosPostVentas
            guardar.guardarLLamada()
            PSaludoPVTA = 0
            PEmpatiaPVTA = 0
            PEscuchaPVTA = 0
            PIndagacionPVTA = 0
            PDisposicionPVTA = 0
            PPrecisionPVTA = 0
            PComunicacionPVTA = 0
            PCierrePVTA = 0
            puntajeTotalPVTA = 0
            TodoACero()
        End If
    End Sub
    Private Sub bt_nAuditado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        frmNewAuditado.ShowDialog()
    End Sub
    Private Sub bt_nControler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        frmNewControlador.ShowDialog()
    End Sub
    Private Sub cbo_salu_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_salu.SelectedIndexChanged
        Dim valorSal As New C_todosPostVentas
        PSaludoPVTA = valorSal.valorSalu(cbo_salu)
        txtv01.Text = PSaludoPVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub
    Private Sub cbo_empatia_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_empatia.SelectedIndexChanged
        Dim valorEmp As New C_todosPostVentas
        PEmpatiaPVTA = valorEmp.valorEmpatia(cbo_empatia)
        txtv02.Text = PEmpatiaPVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub
    Private Sub cbo_indagacion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_escucha.SelectedIndexChanged
        Dim valorEscucha As New C_todosPostVentas
        PEscuchaPVTA = valorEscucha.valorEscucha(cbo_escucha)
        txtv03.Text = PEscuchaPVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub
    Private Sub cbo_disposicion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_indagacion.SelectedIndexChanged
        Dim valorIndagacion As New C_todosPostVentas
        PIndagacionPVTA = valorIndagacion.valorIndagacion(cbo_indagacion)
        txtv04.Text = PIndagacionPVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub
    Private Sub cbo_compromiso_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_disposicion.SelectedIndexChanged
        Dim valorDisposicion As New C_todosPostVentas
        PDisposicionPVTA = valorDisposicion.valorDisposicion(cbo_disposicion)
        txtv05.Text = PDisposicionPVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub
    Private Sub cbo_info_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_precision.SelectedIndexChanged
        Dim valorPrecision As New C_todosPostVentas
        PPrecisionPVTA = valorPrecision.valorPrecision(cbo_precision)
        txtv06.Text = PPrecisionPVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub
    Private Sub cbo_comunicacion_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_comunicacion.SelectedIndexChanged
        Dim valorComunic As New C_todosPostVentas
        PComunicacionPVTA = valorComunic.valorComunicacion(cbo_comunicacion)
        txtv07.Text = PComunicacionPVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub
    Private Sub cbo_credibilidad_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_cierre.SelectedIndexChanged
        Dim valorCierre As New C_todosPostVentas
        PCierrePVTA = valorCierre.valorCierre(cbo_cierre)
        txtv08.Text = PCierrePVTA
        puntajeTotalPVTA = 0
        puntajeTotalPVTA = PSaludoPVTA + PEmpatiaPVTA + PEscuchaPVTA + PIndagacionPVTA + PDisposicionPVTA + PPrecisionPVTA + PComunicacionPVTA + PCierrePVTA
        lbl_puntaje.Text = puntajeTotalPVTA
    End Sub
    Private Sub LlamadasPorNºDeLoteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        frmInfoAsesorAtencion.ShowDialog()
    End Sub
    Private Sub bt_nEmpresa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        frm_empresa.ShowDialog()
    End Sub
    Private Sub cbo_empresa_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_empresa.SelectedIndexChanged
        auditadosXempresaVentas(cbo_auditado, cbo_empresa.Text)
        cbo_auditado.Text = "Seleccionar..."
    End Sub
    Private Sub dtp_fllam_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtp_fllam.ValueChanged
        If dtp_fllam.Value > Today Then
            MsgBox("La fecha de llamada no puede ser mayor al día Actual")
            dtp_fllam.Value = Today
        End If
    End Sub
    Private Sub EditarLlamadasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        frmSearchLlamadas.ShowDialog()
    End Sub
    Private Sub RankingDePromediosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        frmInfoRankingAtencion.ShowDialog()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim yes As Integer
        yes = MsgBox("Seguro desea salir de la Auditoria de POSVENTA?" & Chr(13) & "Los datos se perderan al no ser guardados", MsgBoxStyle.YesNo, "Volver")
        If yes = 6 Then
            TodoACero()
            cadenaConexBD.Close()
            ' frmIndex.Show()
            Me.Close()
        End If
    End Sub
    Private Sub TodoACero()
        Limpiar(Gb_01)
        Limpiar(Gb_02)
        Limpiar(Gb_03)
        Limpiar(gbValores)

        PSaludoPVTA = 0
        PEmpatiaPVTA = 0
        PEscuchaPVTA = 0
        PIndagacionPVTA = 0
        PDisposicionPVTA = 0
        PPrecisionPVTA = 0
        PComunicacionPVTA = 0
        PCierrePVTA = 0
        puntajeTotalPVTA = 0
        lbl_puntaje.Text = 0
        chkAlerta.Checked = False

    End Sub
End Class